(devanagari-reorder-glyphs-for-decomposition): Fix the way to

handle devanagari-decomposition-rules.

diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index c74d74b1653b31df4b56d4e719a4b12811f44222..a9badda617c3feb08db960cf47ce33a4959a7fed 100644 (file)
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -1166,8 +1166,8 @@ Ligatures and special rules are processed."
   "This function re-orders glyph list for decomposition."
   (sort glyphlist 
        '(lambda (x y) 
-          (let ((xx (assoc x devanagari-decomposition-rules))
-                (yy (assoc y devanagari-decomposition-rules)))
+          (let ((xx (nth 1 (assoc x devanagari-decomposition-rules)))
+                (yy (nth 1 (assoc y devanagari-decomposition-rules))))
             (if (null xx) (setq xx 0))
             (if (null yy) (setq yy 0))
             (< xx yy)))))